home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 2 of 3).adf / Intuition_Procs / intui.lha / _SETBPEN.Amos / _SETBPEN.amosSourceCode
AMOS Source Code  |  1992-02-26  |  160b  |  9 lines

  1. Procedure _SETBPEN[_IS,C]
  2.    
  3.    Areg(1)=_IS+84 : Rem    -- Rastport in A1 
  4.    
  5.    Dreg(0)=C : Rem         -- Colour in D0  
  6.    
  7.    P=Gfxcall(-348)
  8.    
  9. End Proc